unit u_FiltroContrato;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxCore, dxButton, ExtCtrls, MMJPanel, Mask, JvExMask,
  JvToolEdit, JvExExtCtrls, JvBevel, StdCtrls, Buttons;

type
  Tf_FiltroContrato = class(TForm)
    MMJPanel1: TMMJPanel;
    btnFiltro: TdxButton;
    btnSair: TdxButton;
    MMJPanel2: TMMJPanel;
    dxButton1: TdxButton;
    lbl11: TLabel;
    btn1: TBitBtn;
    lbl12: TLabel;
    btn2: TBitBtn;
    lbl1: TLabel;
    btn3: TBitBtn;
    btn4: TBitBtn;
    lbl2: TLabel;
    lbl3: TLabel;
    edtProprietario: TEdit;
    cbbSituacao: TComboBox;
    edtPropriedade: TEdit;
    edtComprador: TEdit;
    edtEmpreiteiro: TEdit;
    JvBevel1: TJvBevel;
    lbl4: TLabel;
    lbl5: TLabel;
    JvDateEdit1: TJvDateEdit;
    JvDateEdit2: TJvDateEdit;
    edtContrato: TEdit;
    lbl6: TLabel;
    procedure btn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure dxButton1Click(Sender: TObject);
    procedure btnSairClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnFiltroClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_FiltroContrato: Tf_FiltroContrato;

implementation

uses UDm, uDmCitrus, uProcurar;

{$R *.dfm}

procedure Tf_FiltroContrato.btn1Click(Sender: TObject);
begin
  fProcurar:= TfProcurar.Create(self,dm.scds_forn_proc);
  try
    fProcurar.btnImprimir.Visible := true;
    fProcurar.RadioGroup1.Visible := true;
    dm.scds_forn_proc.Params.ParamByName('pStatus').AsInteger := 1;
    dm.scds_forn_proc.Params.ParamByName('pSegmento').AsInteger := 0;
    fProcurar.BtnProcurar.Click;
    fProcurar.EvDBFind1.DataField := 'NOMEFORNECEDOR';
    fProcurar.RadioGroup2.Visible := True;
    fProcurar.ShowModal;
    DmCitrus.var_PROPRIETARIO := IntToStr(dm.scds_forn_procCODFORNECEDOR.AsInteger);
    edtProprietario.Text := dm.scds_forn_procNOMEFORNECEDOR.AsString;
  finally
    dm.scds_forn_proc.Close;
    fProcurar.Free;
  end;
end;

procedure Tf_FiltroContrato.FormShow(Sender: TObject);
begin
    DmCitrus.var_PROPRIETARIO := '';
    DmCitrus.var_PROPRIEDADE := '';
    DmCitrus.var_COMPRADOR := '';
    DmCitrus.var_CONTRATO := '';
    DmCitrus.var_EMPREITEIRO := '';
    DmCitrus.var_DATA1 := '  /  /    ';
    DmCitrus.var_DATA2 := '  /  /    ';
    DmCitrus.var_Status := '';
end;

procedure Tf_FiltroContrato.btn2Click(Sender: TObject);
begin
  fProcurar:= TfProcurar.Create(self,DmCitrus.busca_propriedade);
  fProcurar.btnImprimir.Visible := true;
  fProcurar.RadioGroup1.Visible := true;
  DmCitrus.busca_propriedade.Params.ParamByName('id').AsInteger := DM.ID_FORNECEDOR;
  fProcurar.BtnProcurar.Click;
  fProcurar.EvDBFind1.DataField := 'PRO_DESCRICAO';
  fProcurar.RadioGroup2.Visible := True;
  try
   if fProcurar.ShowModal=mrOk then
    begin
     DmCitrus.var_PROPRIEDADE := IntToStr(DmCitrus.busca_propriedadePRO_ID.AsInteger);
     edtPropriedade.Text :=  DmCitrus.busca_propriedadePRO_DESCRICAO.AsString;
    end;
  finally
    DmCitrus.busca_propriedade.Close;
    fProcurar.Free;
  end;
end;

procedure Tf_FiltroContrato.btn4Click(Sender: TObject);
begin
  fProcurar:= TfProcurar.Create(self,DmCitrus.buscaComprador);
  try
    fProcurar.BtnProcurar.Click;
    fProcurar.EvDBFind1.DataField     := 'NOMEFORNECEDOR';
    fProcurar.RadioGroup2.Visible     := True;
   if fProcurar.ShowModal=mrOk then
    begin
      DmCitrus.var_COMPRADOR := IntToStr(DmCitrus.buscaCompradorCODFORNECEDOR.AsInteger);
      edtComprador.Text      :=  DmCitrus.buscaCompradorNOMEFORNECEDOR.AsString;
    end;
  finally
    DmCitrus.buscaComprador.Close;
    fProcurar.Free;
  end;
 {
  fProcurar:= TfProcurar.Create(self,dm.scds_usuario_proc);
  fProcurar.usuarioproc := 'COMPRADOR';
  fProcurar.BtnProcurar.Click;
  fProcurar.EvDBFind1.DataField := 'NOMEUSUARIO';
  try
   if fProcurar.ShowModal=mrOk then
    begin
     DmCitrus.var_COMPRADOR := IntToStr(dm.scds_usuario_ProcCODusuario.AsInteger);
     edtComprador.Text :=  dm.scds_usuario_procNOMEUSUARIO.AsString;
    end;
  finally
    dm.scds_usuario_proc.Close;
    fProcurar.Free;
  end;
  }
end;

procedure Tf_FiltroContrato.btn3Click(Sender: TObject);
begin
  fProcurar:= TfProcurar.Create(self,DmCitrus.buscaColhedor);
  try
    fProcurar.BtnProcurar.Click;
    fProcurar.EvDBFind1.DataField     := 'NOMEFORNECEDOR';
    fProcurar.RadioGroup2.Visible     := True;
    fProcurar.ShowModal;
    DmCitrus.var_EMPREITEIRO := IntToStr(DmCitrus.buscaColhedorCODFORNECEDOR.AsInteger);
    edtEmpreiteiro.Text      := DmCitrus.buscaColhedorNOMEFORNECEDOR.AsString;
  finally
    DmCitrus.buscaColhedor.Close;
    fProcurar.Free;
  end;
end;

procedure Tf_FiltroContrato.dxButton1Click(Sender: TObject);
begin
    DmCitrus.var_PROPRIETARIO := '';
    DmCitrus.var_PROPRIEDADE := '';
    DmCitrus.var_COMPRADOR := '';
    DmCitrus.var_CONTRATO := '';
    DmCitrus.var_EMPREITEIRO := '';
    DmCitrus.var_DATA1 := '  /  /    ';
    DmCitrus.var_DATA2 := '  /  /    ';
end;

procedure Tf_FiltroContrato.btnSairClick(Sender: TObject);
begin
   Close;
end;

procedure Tf_FiltroContrato.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    if (edtContrato.Text <> '') then
      DmCitrus.var_CONTRATO := edtContrato.Text;
    if (JvDateEdit1.Text <> '  /  /    ') then
      DmCitrus.var_DATA1 := JvDateEdit1.Text;
    if (JvDateEdit2.Text <> '  /  /    ') then
      DmCitrus.var_DATA2 := JvDateEdit2.Text;
    if (cbbSituacao.Text <> '') then
      DmCitrus.var_Status := cbbSituacao.Text;
end;

procedure Tf_FiltroContrato.btnFiltroClick(Sender: TObject);
begin
  close;
end;

end.
